#!/usr/bin/env perl

use strict;
use utf8;
use 5.010001;

say "matching number ~~ string" if 4 ~~ '4abc';
say "matching string ~~ number" if '4abc' ~~ 4;
